home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 125 / 125.d81 / calendar 64 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  379b  |  16 lines
  1. 100 rem calendar 64 loader ************
  2. 120 f=f+1:iff=1thenf=2:gosub300
  3. 140 iff=2thenload"calendar 64 *",dv,1
  4. 160 iff=3thenload"opsystem    *",dv,1
  5. 180 iff=4thenload"cbm1351     *",dv,1
  6. 200 iff=5thenload"joystick    *",dv,1
  7. 210 iff=6thenload"keyboard    *",dv,1
  8. 220 sys3072
  9. 300 poke53280,00:poke53281,00
  10. 305 print"[147]"chr$(8)chr$(14)
  11. 320 printtab(14)"[153]  [204]oading"
  12. 330 printtab(14)"[159][195]alendar 64"
  13. 340 printtab(14)"[150][214]ersion 1.0"
  14. 360 dv=peek(186):ifdv<8thendv=8
  15. 370 return
  16.